home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / TPUG Xtras / Unreleased / (c)aaa.d64 / infbot_2.1 (.txt) < prev    next >
Commodore BASIC  |  2009-02-07  |  3KB  |  138 lines
  1. 90 REM VERSION 2.1
  2. 100 PRINTCHR$(14)
  3. 110 REM (C) 1985 INFERSTRUCTURE SERVICES
  4. 120 REM INFERSTRUCTURE BOOT MODULE
  5. 130 REM COPYRIGHT NOTICES
  6. 140 REM ORDERING INFORMATION
  7. 150 REM PARAMETER SETUP
  8. 160 INPUT"[147]HOW MANY COLUMNS";CL
  9. 170 DIM KF$(101)
  10. 180 IF CL=22 THEN SP$="":IB=88
  11. 190 IF CL<>22THEN SP$="        ":IB=80
  12. 200 IF CL=80 THEN SP$=SP$+SP$  :IB=80
  13. 210 FOR J=1TO11:LI$=LI$+SP$:NEXT
  14. 220 HL$=""+LEFT$(LI$,CL)+"[146]"
  15. 230 PRINT"[147]";HL$;:PRINT
  16. 240 PRINTSP$;" [201][206][198][197][210]-[211][212][210][213][195][212][213][210][197]
  17. 250 [153]SP$;"    STR$ATABASE
  18. 260 PRINT:PRINTHL$;:PRINT
  19. 270 PRINTSP$;"    [207][203] [212]O [195]OPY
  20. 280 [153]SP$;"PEEKUT (null)OT ASCOR (null)ROFIT
  21. 290 PRINT
  22. 300 PRINTSP$;"     (C) 1985
  23. 310 [153]SP$;" RIGHT$(null)ASCVAL(null)-(null)(null)(null)(null)LEN(null)(null)(null)VAL
  24. 320 PRINTSP$;"     [211]ERVICES
  25. 330 [153]
  26. 340 [153]SP$;"ATNLL LENOMMERCIAL (null)IGHTS
  27. 350 PRINTSP$;"  [210]ESERVED [194]Y [212]HE
  28. 360 [153]SP$;"ATNUTHOR (null)ENDING (null)RITTEN
  29. 370 PRINTSP$;"     [193]GREEMENT
  30. 380 [153]
  31. 390 [141] 1040
  32. 400 [153]"LOAD";SP$;"ATNLSO ATNVAILABLE ASCROM
  33. 410 PRINT
  34. 420 PRINTSP$;" [201][206][198][197][210]-[211][212][210][213][195][212][213][210][197]
  35. 430 [153]SP$;"    (null)ERVICES
  36. 440 PRINT
  37. 450 PRINTSP$;"  [201]NDEX [196]ISCS [198]OR
  38. 460 [153]SP$;"    (null)OPULAR
  39. 470 PRINTSP$;"[195]OMPUTER [205]AGAZINES:
  40. 480 [153]
  41. 490 [153]SP$;"    LEN(null)(null)(null)(null)(null)VAL!
  42. 500 PRINT
  43. 510 PRINTSP$;"    [210][213][206]
  44. 520 [153]
  45. 530 [153]SP$;"    (null)RANSACTOR
  46. 540 PRINT
  47. 550 GOSUB 1040
  48. 560 PRINT"[147]";SP$;"[197]ACH [196]ISC [195]ONTAINS:"
  49. 570 PRINT
  50. 580 PRINTSP$;"  [212]HE [201]NDEX [198]ILE"
  51. 590 PRINT
  52. 600 PRINTSP$;"[212]HE [204]ATEST [214]ERSION"
  53. 610 PRINTSP$;"        OF"
  54. 620 PRINTSP$;"  [201][206][198][197][210]-[211][212][210][213][195][212][213][210][197]"
  55. 630 PRINTSP$;"     [196]ATABASE"
  56. 640 PRINT
  57. 650 PRINTSP$;"  [196]OCUMENTED [194][193][211][201][195]
  58. 660 [153]SP$;"     (null)OURCECODE
  59. 670 PRINT
  60. 680 PRINTSP$;"  [213]SERS [205]ANUAL [198]ILE
  61. 690 [151] 3,CL
  62. 700 [141] 1040
  63. 710 [153]
  64. 720 [153]"LOAD";SP$;"  ASCOR (null)ORE RIGHT$NFORMATION"
  65. 730 [153]SP$;"     SEE THE
  66. 740 PRINT
  67. 750 PRINTSP$;"  [201][206][198][197][210]-[211][212][210][213][195][212][213][210][197]
  68. 760 [153]SP$;"  (null)SERS CHR$UIDE ASCILE"
  69. 770 [153]
  70. 780 [153]SP$;"   OR WRITE TO
  71. 790 PRINT
  72. 800 PRINTSP$;"  [201][206][198][197][210]-[211][212][210][213][195][212][213][210][197]
  73. 810 [153]SP$;"     (null)ERVICES
  74. 820 PRINTSP$;"  12 [199]LEBEMOUNT [193]VE.
  75. 830 [153]SP$;"  (null)ORONTO (null)NT.
  76. 840 PRINTSP$;"  [195]ANADA
  77. 850 [153]SP$;"  (null)4LEN 3(null)3"
  78. 860 [153]
  79. 870 [153]SP$;"  (null)LEASE INCLUDE $1.00
  80. 880 PRINTSP$;"  FOR POSTAGE AND
  81. 890 [153]SP$;"  HANDLING COSTS    "
  82. 900 [141] 1040
  83. 910 [153]"LOAD"
  84. 920 [153]"(null)RINT (null)SERS CHR$UIDEWAIT"
  85. 930 [153]"SWAITCREEN"
  86. 940 [153]"PWAITRINTER"
  87. 950 [153]"NWAITO"
  88. 960 [161] D1$(4):[139] D1$(4)[178]"" [137] 960
  89. 970 [139] D1$(4)[178]"N" [137] 999
  90. 980 [141] 1250
  91. 990 [137] 910
  92. 999 [151]53265,0
  93. 1000 [153]"LOADLOAD"[199](34)"INFSTR*"[199](34)",8":[153]"RUN"
  94. 1010 [151]198,2:[151]631,13:[151]632,13
  95. 1020 [128]
  96. 1030 :
  97. 1040 TI$[178]"000000"
  98. 1050 X[178][184](0):[139] TI$[179]"000009" [137] 1050
  99. 1060 [142]
  100. 1070 :
  101. 1080 [129] D1[178]1 [164] 21
  102. 1090 [161]#11,D1$
  103. 1100 [139] ST [167] KF$(D1)[178]"%&*":D1[178]21[170]1:[137] 1130
  104. 1110 [139] D1$[179][177][199](13) [167] D2$[178]D2$[170]D1$:[137] 1090
  105. 1120 KF$(D1)[178]D2$:D2$[178]""
  106. 1130 [130] D1
  107. 1140 [142]
  108. 1150 :
  109. 1160 [143] SUB O,RETURNDELAY
  110. 1170 [153]"  <RETURN>  TO  CONT  WAIT"
  111. 1180 [153]"<SHIFT/RETURN> TO STOPWAIT"
  112. 1190 [161] O1$
  113. 1200 [139] O1$[179][177][199](13) [175] O1$[179][177][199](141) [137] 1190
  114. 1210 [142]
  115. 1220 :
  116. 1230 [143] SUB D,PRINT SEQ FILE
  117. 1240 [143]  VARIABLE:  D2 - NUMBER OF LINES USED FLAG
  118. 1250 TMP$[178]"TEST*"
  119. 1260 [153]"LOADDISC IN DRIVE #8? WAIT":[141] 1170
  120. 1270 [153]"LOAD"
  121. 1280 [159]11,8,11,"0:INFUSR*,S,R"
  122. 1290 D2[178]0:D2$[178]""
  123. 1300 [139] D1$(4) [178]"P"[167]   [159]4,4,7
  124. 1310 [141] 1080
  125. 1320 [129] D1[178]1 [164] 21
  126. 1330 [139] KF$(D1)[178] "%&*" [167] D1[178]21[170]1:[137] 1370
  127. 1340 D2[178]D2[170]1:[139] [195](KF$(D1))[177]CL [167] D2[178]D2[170]1
  128. 1350 [139] D1$(4) [178]"P"[167]   [152]4,KF$(D1):[137] 1390
  129. 1360 [153]KF$(D1)
  130. 1370 [139] D1[179][177]100[170]1 [175]  D2[179]22  [137]1390
  131. 1380 [153]:[141] 1170:D2[178]0:[153]"LOAD":[139] O1$[178][199](141) [167] D1[178]21[170]1
  132. 1390 [130] D1
  133. 1400 [139] D1$(4)[178]"P"[167]  [160] 4
  134. 1410 [139] D1[179][177]21[170]2 [167] 1300
  135. 1420 [160] 11
  136. 1430 [142]
  137. 1440 :
  138.